home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / windows5 / v11n18.zip / DAYS.ZIP / DAYS.PRG < prev    next >
Text File  |  1992-06-08  |  768b  |  37 lines
  1. SET TALK OFF
  2. CLEAR
  3.  
  4. STORE CTOD("  /  /  ") TO beg_date,end_date
  5.  
  6. @ 3,3 SAY "Enter beginning date:" GET beg_date
  7. @ 5,3 SAY "Enter ending date:   " GET end_date
  8. READ
  9.  
  10. numdays = end_date - beg_date + 1
  11. day_nbr = DOW(beg_date)
  12. USE days
  13.  
  14. REPLACE ALL ;
  15.   seq_nbr WITH RECNO() - day_nbr + IIF(RECNO() < day_nbr,8,1), ;
  16.   occurs  WITH INT(numdays / 7)  + IIF(seq_nbr <= MOD(numdays,7),1,0)
  17. GOTO TOP
  18.  
  19. ?
  20. ? "Number of Sundays is   " + STR(occurs)
  21. SKIP
  22. ? "Number of Mondays is   " + STR(occurs)
  23. SKIP
  24. ? "Number of Tuesdays is  " + STR(occurs)
  25. SKIP
  26. ? "Number of Wednesdays is" + STR(occurs)
  27. SKIP
  28. ? "Number of Thursdays is " + STR(occurs)
  29. SKIP
  30. ? "Number of Fridays is   " + STR(occurs)
  31. SKIP
  32. ? "Number of Saturdays is " + STR(occurs)
  33. ?
  34. USE
  35.  
  36. RETURN
  37.